home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg2 / g47.bas < prev    next >
BASIC Source File  |  1991-10-18  |  1KB  |  47 lines
  1. 100 ' G47 T.WAKAMATSU
  2. 110 CLS:PI=3.14159!
  3. 120 READ V,W,V1,W1:DATA 5,2,9,5:C0=W:C1=W1
  4. 130 FOR G=-22.5! TO 22.5! STEP .5!
  5. 140   FOR I=G TO 360+G  STEP 45
  6. 150     T=I/180*PI:U=(I+28)/180*PI
  7. 160     Z=COS(T*8)*45+65
  8. 170     S=Z*1.5!:F=2
  9. 180     X0=S*COS(U)+170:Y0=S*SIN(U)+240
  10. 190     Y1=Z*SIN(T)+240:X1=Z*COS(T)+170
  11. 200     IF I+F=INT((I+F)/45)*45 THEN C0=V-C0:C1=V1-C1
  12. 210     LINE(X0,Y0)-(X1,Y1),PSET,%C0
  13. 220     X0=X0+310
  14. 230     X1=X1+310
  15. 240     LINE(X0,Y0)-(X1,Y1),PSET,%C1
  16. 250   NEXT I
  17. 260 NEXT G
  18. 270 FOR D=1 TO 3000:NEXT D
  19. 280 FOR G=-22.5! TO 22.5!
  20. 290   FOR I=G TO 360+G  STEP 45
  21. 300     T=I/180*PI:U=(I+28)/180*PI
  22. 310     Z=COS(T*8)*45+65
  23. 320     S=Z*1.5!:F=2
  24. 330     X0=S*COS(U)+170:Y0=S*SIN(U)+240
  25. 340     Y1=Z*SIN(T)+240:X1=Z*COS(T)+170
  26. 350     IF I+F=INT((I+F)/45)*45 THEN C0=V-C0:C1=V1-C1
  27. 360     LINE(X0,Y0)-(X1,Y1),PSET,0
  28. 370     X0=X0+310
  29. 380     X1=X1+310
  30. 390     LINE(X0,Y0)-(X1,Y1),PSET,0
  31. 400   NEXT I
  32. 410 NEXT G
  33. 420 FOR G=-23! TO 23
  34. 430   FOR I=G TO 360+G  STEP 45
  35. 440     T=I/180*PI:U=(I+28)/180*PI
  36. 450     Z=COS(T*8)*45+65
  37. 460     S=Z*1.5!:F=2
  38. 470     X0=S*COS(U)+170:Y0=S*SIN(U)+240
  39. 480     Y1=Z*SIN(T)+240:X1=Z*COS(T)+170
  40. 490     IF I+F=INT((I+F)/45)*45 THEN C0=V-C0:C1=V1-C1
  41. 500     LINE(X0,Y0)-(X1,Y1),PSET,0
  42. 510     X0=X0+310
  43. 520     X1=X1+310
  44. 530     LINE(X0,Y0)-(X1,Y1),PSET,0
  45. 540   NEXT I
  46. 550 NEXT G
  47.